home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earkit / socket / miami30d / miami30d-deu.lha / MiamiDeutsch_Install / Installieren_Deutsch next >
Text File  |  1998-08-11  |  3KB  |  141 lines
  1. ; $VER: Installieren_Deutsch 3.0d (11.08.98)
  2. (procedure P-check-system-version
  3.  (if (< (/ @installer-version 65536) 43)
  4.   (abort "Das Installationsskript für die deutschen\n"
  5.    "Miami-Dateien benötigt Installer Version 43 oder\n"
  6.    "höher. Diese Version ist von Aminet und von\n"
  7.    "www.nordicglobal.com erhältlich")
  8.  )
  9.  (set #exec-version (/ (getversion) 65536))
  10.  (if (< #exec-version 37)
  11.   (abort "Miami benötigt Kickstart 2.04 oder höher.\n")
  12.  )
  13. )
  14.  
  15. (procedure P-select-destination-directory
  16.  (if (exists "Miami:" (noreq))
  17.   (
  18.    (set @default-dest
  19.     (askdir
  20.      (prompt "Bitte geben Sie das Verzeichnis an, in "
  21.       "dem Miami 3.0 installiert ist.")
  22.      (help "Bitte geben Sie das Verzeichnis an, in "
  23.       "dem Miami 3.0 installiert ist. Normalerweise "
  24.       "ist das korrekte Verzeichnis das, auf das der "
  25.       "Assign `Miami:' zeigt.")
  26.      (default "Miami:")
  27.     )
  28.    )
  29.   ) (
  30.    (abort "Der Assign `Miami:' existiert nicht auf "
  31.     "Ihrem Rechner. Sie muessen Miami 3.0 zuerst "
  32.     "installieren, bevor Sie die deutschen Dateien "
  33.     "dazu installieren können.")
  34.   )
  35.  )
  36. )
  37.  
  38. (welcome "Willkommen bei der Installation der deutschen\n"
  39.  "Dateien für Miami 3.0\n")
  40.  
  41. (set app-name "Miami_deutsch")
  42.  
  43. (P-check-system-version)
  44.  
  45. (if @pretend
  46.   (abort "Der Pretend-Modus (`Scheinbar installieren')\n"
  47.    "kann mit diesem Installation-Skript\n"
  48.    "nicht verwendet werden.\n")
  49. )
  50.  
  51. (complete 0)
  52.  
  53. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  54.  (expandpath @icon))
  55. )
  56.  
  57. (P-select-destination-directory)
  58.  
  59. (complete 5)
  60.  
  61. ; start actual installation
  62.  
  63. (if (not (exists (tackon @default-dest "Catalogs")))
  64.  (makedir (tackon @default-dest "Catalogs"))
  65. )
  66.  
  67. (complete 10)
  68.  
  69. (if (not (exists (tackon @default-dest "Catalogs/deutsch")))
  70.  (makedir (tackon @default-dest "Catalogs/deutsch"))
  71. )
  72.  
  73. (complete 20)
  74.  
  75. (if (not (exists (tackon @default-dest "Help")))
  76.  (makedir (tackon @default-dest "Help"))
  77. )
  78.  
  79. (complete 30)
  80.  
  81. (if (not (exists (tackon @default-dest "Help/deutsch")))
  82.  (makedir (tackon @default-dest "Help/deutsch"))
  83. )
  84.  
  85. (complete 40)
  86.  
  87. (copyfiles
  88.  (source (tackon #source-dir "Miami.guide"))
  89.  (dest (tackon @default-dest "Help/deutsch"))
  90.  (optional force)
  91. )
  92.  
  93. (complete 50)
  94.  
  95. (copyfiles
  96.  (source (tackon #source-dir "Miami.catalog"))
  97.  (dest (tackon @default-dest "Catalogs/deutsch"))
  98.  (optional force)
  99. )
  100.  
  101. (complete 60)
  102.  
  103. (copyfiles
  104.  (source (tackon #source-dir "MiamiInit.catalog"))
  105.  (dest (tackon @default-dest "Catalogs/deutsch"))
  106.  (optional force)
  107. )
  108.  
  109. (complete 70)
  110.  
  111. (copyfiles
  112.  (source (tackon #source-dir "MiamiRegister.catalog"))
  113.  (dest (tackon @default-dest "Catalogs/deutsch"))
  114.  (optional force)
  115. )
  116.  
  117. (complete 80)
  118.  
  119. (if (exists (tackon @default-dest "Miami.guide.info"))
  120.  (
  121.   (copyfiles
  122.    (source (tackon @default-dest "Miami.guide.info"))
  123.    (dest (tackon @default-dest "Help/deutsch"))
  124.    (optional force)
  125.   )
  126.   (tooltype
  127.    (dest (tackon @default-dest "Help/deutsch/Miami.guide"))
  128.    (noposition)
  129.   )
  130.  )
  131. )
  132.  
  133. (complete 100)
  134.  
  135. (exit "Die Installation der deutschen Dateien für Miami ist "
  136.   "beendet. Wenn Sie Miami, MiamiInit oder MiamiRegister neu "
  137.   "starten, und über die `Locale' Preferences `deutsch' als "
  138.   "Sprache eingestellt haben, werden automatisch deutsche "
  139.   "Programmtexte verwendet."
  140. )
  141.